unit TestAVData;

interface

uses
  TestFramework, SysUtils, TypInfo, AVTypes, Classes, Rtti, AVData, Generics.Collections;

type

  TestTAVData = class(TTestCase)
  strict private
    FAVData: TAVData;
  public
    procedure SetUp; override;
    procedure TearDown; override;
  end;

implementation

procedure TestTAVData.SetUp;
begin
  FAVData := TAVData.Create;
end;

procedure TestTAVData.TearDown;
begin
  FAVData.Free;
  FAVData := nil;
end;

initialization
  // Register any test cases with the test runner
  RegisterTest(TestTAVData.Suite);
end.

